home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / lonely.bas < prev    next >
BASIC Source File  |  1991-10-18  |  17KB  |  273 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF:GOSUB *SCREEN
  2. 1000 M1$="L4@79%CO3RA8>EEE8"
  3. 1010 M2$="D8C<BG@78A8&"
  4. 1020 M3$="A1"
  5. 1030 M4$="R1"
  6. 1040 M5$="R@79A8>EEE8"
  7. 1050 M6$="D8C<B>C8D8@78E8&"
  8. 1060 M7$="E1"
  9. 1070 M8$="R1"
  10. 1080 M9$="R4<@79A8>EEE8"
  11. 1090 M10$="D8C<BG@78A8&"
  12. 1100 M11$="A1"
  13. 1110 M12$="R1"
  14. 1120 M13$="R@79A8>EEG8"
  15. 1130 M14$="F8EDC8D8E8&"
  16. 1140 M15$="E1&"
  17. 1150 M16$="E2@90>R8E8Q8E8Q8F8&"
  18. 1160 M17$="FFQ8F8Q8AG8&"
  19. 1170 M18$="GGQ8E8Q8C<B8&"
  20. 1180 M19$="BB.A8G8A8&"
  21. 1190 M20$="A2L8RQ8AQ8B>C&"
  22. 1200 M21$="C<Q8AQ8B>C4Q8CQ8DE&"
  23. 1210 M22$="EQ8CQ8DE4EFE&"
  24. 1220 M23$="E2G#4Q8EQ8G#&"
  25. 1230 M24$="G#A4@91B4R4<@79E&"
  26. 1240 M25$="L4EED8CE8&"
  27. 1250 M26$="EED8CE8&"
  28. 1260 M27$="EED8CD8&"
  29. 1270 M28$="D8<B>CDC8"
  30. 1280 M29$=M26$
  31. 1290 M30$="EED8CA8&"
  32. 1300 M31$="AED8CD8&"
  33. 1310 M32$="D<B>C8DC8&"
  34. 1320 M33$="L8C<A4.AB>CD&"
  35. 1330 M34$="D<L4BGBA8&"
  36. 1335 N34$="[D<L4BG[B@78A8&"
  37. 1340 M35$="A1&"
  38. 1350 M36$="A1"
  39. 1500 'B1$="O2(%L7AR>%R7AA<)4":B2$="O2(%L7GR>%R7GG<)4":B3$="O2(%L7FR>%R7FF<)4":B4$="O2(%L7ER>%R7EE<)4":B5$="O3(%L7CR>%R7CC<)4":B6$="(%L7ER>%R7EE<)3>%CEDC<B":B7$="(%L7ER>%R7EE<)3>%CEEFG"
  40. 1501 B1$="%L4O2(AR>AA<)4":B2$="O2(GR>GG<)4":B3$="O2(FR>FF<)4":B4$="O2(ER>EE<)4":B5$="O3(CR>CC<)4":B6$="(ER>EE<)3>EDC<B":B7$="(ER>EE<)3>EEFG"
  41. 1510 BD$="CRCR":SD$="RFRF":SD2$="RERE":HH$="(@V40C@V18C)4":'HH$="@4L16V10!13(CCCC)4"
  42. 1520 FOR I=0 TO 15 : PART I,I : NEXT
  43. 2000 BGM 1:PLAY OFF:LOAD@ "Q:\FJ\FM\FM_1.FMB":LOAD@"PDRUMS.PMB"
  44. 2001 GOSUB 30000:T$="T160Q8L4V8U0%C":PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  45. 2008 CH1$="@V2D-@V4D-@V6D-@V8D- @V10D-@V12D-@V14D-@V16D- @V18D-@V20D-@V22D-@V24D- @V26D-@V28D-@V30D-@V32D- @V35D-@V38D-@V41D-@V44D- @V47D-@V50D-@V53D-@V55D- @V58D-@V61D-@V64D-@V67D-"
  46. 2010 PLAY ,,,"@30O4V0Q6L8%C(AA]DG])4","@30O4V0Q6L8%CR16(GE]EE])3GEEE16&",,"@3L4%R4@V127","@2%L2V8","@2%R2V8","@5%L1L16V0O4R4"+CH1$,"@11V6L16Q6","@6%R7L16V14","@5%R1L16V0O4R4R32"+CH1$+"32"
  47. 2020 PLAY "@49%LO4V10L1","@49%LO4V10L1",,"](AADG)","E16]GEEEGEEE16&",,BD$,SD$,SD2$,"L8%C"+HH$,B1$,"C1"
  48. 2030 PLAY ,,,"(AADG)","E16GEEEGEEE16&","@23O4V15R4.L16AAG8A8EDC<B",BD$,SD$,SD2$,HH$,B1$,,"@14O3R2%L7V15G2","@14O3R2%R7V15R8A4."
  49. 2040 PLAY "A","C","@111L16O4%RV13(R8Q2FFQ4CQ7F8Q4F)","(AADG)","E16GEEEGEEE16&",,BD$,SD$,SD2$,HH$,B3$
  50. 2050 PLAY "B","D","(R8Q2GGQ4DQ7G8Q4G)","(AADG)","E16GEEEGEEE16&",,BD$,SD$,SD2$,HH$,B2$,,"R2R4E4","R2R4G4"
  51. 2060 PLAY "A&","C&",,"(AADG)","E16GEEEGEEE16&",,BD$,SD$,SD2$,HH$,B1$
  52. 2070 PLAY "A2..]]Q4A16A16[[","C2..C16C16",,"(AADG)","E16GEEEGEEE16&","@23V15Q8O4R4.AAG8A8EDC<B",BD$,SD$,SD2$,HH$,B1$,,"R2G2","R2R8A4."
  53. 2080 PLAY "Q8A","C","@111Q6O4%RV13R8(FC<A>)4FC","(AADG)","E16GEEEGEEE16&",,BD$,SD$,SD2$,HH$,B3$
  54. 2090 PLAY "B","D","R8(GD<B>)4GD","(AADG)","E16GEEEGEEE16",,BD$,SD$,SD2$,HH$,B2$
  55. 3000 FOR I=0 TO 1
  56. 3010 CH1$(0)="@101Q8%LV11O4C1":CH2$(0)="@101Q8%LV11O4R32.E2..":CH3$(0)="@101Q8%LV11O4R16.A2.."
  57. 3011 CH1$(1)="R2@101Q8%LV11O4":CH2$(1)="R2@101Q8%LV11O4":CH3$(1)="R2@101Q8%LV11O4"
  58. 3020 PLAY "U-30V12"+M1$,"U30V12"+M1$,"Q8A2V10Q4R8A>CEDC<Q8B",CH1$(I),CH2$(I),CH3$(I),BD$,SD$,SD2$,HH$,B1$,"C1"
  59. 3030 PLAY M2$,M2$,"R2R8Q4GB>DC<BQ8G",,,,BD$,SD$,SD2$,HH$,B2$
  60. 3040 PLAY M3$,M3$,"R2R8Q4FA>CDCQ8C","R2]L4A>C&","R2L8]RB4>D&","]",BD$,SD$,SD2$,HH$,B3$
  61. 3050 PLAY M4$,M4$,"Q6<(BAGBGABG)","C8<B2B4A8&","D4.<G2>R32C16.&","O5R2R4R8R16E16",BD$,SD$,SD2$,HH$,B2$
  62. 3060 PLAY M5$,M5$,"Q8A2Q4R8A>CEDC<Q8B","A1[","C1[","E1[",BD$,SD$,SD2$,HH$,B1$
  63. 3070 PLAY M6$,M6$,"R2R8Q4GB>DC<BQ8G",,,,BD$,SD$,SD2$,HH$,B2$
  64. 3080 PLAY M7$,M7$,"R2R8Q4FA>CDCQ8C",,,,BD$,SD$,SD2$,HH$,B3$
  65. 3090 PLAY M8$,M8$,"Q6<BAG#BG#ABG#BAG#BAG#CD","[[O4G#.G#.G#","[[O4B4.>D4.<B4","[[O5D4.F4.E4",BD$,SD$,SD2$,HH$,B6$
  66. 3100 PLAY M9$,M9$,"!12Q8E8!8EQ6E!12(EEEE)3","A1","R32>C2.&C16.&C8","R16E2.&E8.",BD$,SD$,SD2$,HH$,B1$,"C1"
  67. 3110 PLAY M10$,M10$,"!12(DDDD)4",,,,BD$,SD$,SD2$,HH$,B2$
  68. 3120 PLAY M11$,M11$,"!12(CCCC)4","]]]R2O4A>C&","]]]O4R2RB4>D&","]]]",BD$,SD$,SD2$,HH$,B3$
  69. 3130 PLAY M12$,M12$,"<!12(BBBB)3V12>EDC<B","C8E2.<A8&","D4.<B2>R32C16.&","]]R2R4<G8.>E16&",BD$,SD$,SD2$,HH$,B2$
  70. 3140 PLAY M13$,M13$,"V10!12AAAA!12BBBB>!12CCCC!12DDDD","A1","C1","E1",BD$,SD$,SD2$,HH$,B1$
  71. 3150 PLAY M14$,M14$,"!12EEEE!12DD!12AAAA!12GGGG!12AA",,,,BD$,SD$,SD2$,HH$,B2$
  72. 3160 PLAY M15$,M15$,"AAAA!12BBBB>!12CCCC!12DDDD",,,,BD$,SD$,SD2$,HH$,B3$
  73. 3170 PLAY M16$,M16$,"!12(EE)3!12D!12C<!12(BBBB)2","[[[G#.G#.G#","[[[<B4.B4.B4","[[[E4.E4.E4",BD$,SD$,SD2$,HH$,B7$,"C4.%L5E-4.%C<A4>"
  74. 3180 PLAY M17$,M17$,"@95Q8V10%RL4O4CC<A8>CD8&","L8A>FC<A>AFCA",,,BD$,SD$,SD2$,HH$,B3$,"%R7C1"
  75. 3190 PLAY M18$,M18$,"DD<A8>DD8","]]<G>D<BG>GD<B>G",,,BD$,SD$,SD2$,HH$,B2$
  76. 3200 PLAY M19$,M19$,"EG#B>D","<G#>D<BG#>G#ED<B",,,BD$,SD$,SD2$,HH$,B4$
  77. 3210 PLAY M20$,M20$,"ED8CC8<B","A4.A4A8G4","]]O5C4.C4C8<B4","]]O5E4.E4E8D4",BD$,SD$,SD2$,HH$,B1$
  78. 3220 PLAY M21$,M21$,"A1","A>FC<A>AFCA",,,BD$,SD$,SD2$,HH$,B3$
  79. 3230 PLAY M22$,M22$,"G2E8CD8","<G>EC<G>GECG",,,BD$,SD$,SD2$,HH$,B5$
  80. 3240 PLAY M23$,M23$,"EG#B>D","L16(ECD)5E",,,BD$,SD$,SD2$,HH$,B4$
  81. 3250 PLAY M24$,M24$,"E1","<G#4.G#4@79V12U30O4C8D8R8","O4B4.B4@79V12U-30O4C8D8R8","O5D4.D2&D8",BD$,"RF","RE",HH$,B7$,"@14O3%R7V13R2G#2","@9V12O3R2R8L16%L6FF%CDD<%R6BB","O3%L7V13R2D2"
  82. 3260 PLAY M25$,M25$,"@111%RQ6O4V10L16(AGAEDEGE)","U0@101V9%LO4","U0R2L8@101V9%LO5RCRC","V9R2L8O4RARG",BD$,SD$,SD2$,HH$,B1$,"@6%R7V14O4C1"
  83. 3270 PLAY M26$,M26$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  84. 3280 PLAY M27$,M27$,">C<B>C<AFA>C<B>C<B>C<AFA>DC",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  85. 3290 PLAY M28$,M28$,"<BA#BG#EG#>C#<BEG#B>D<G#B>DE<",,"C4C<B4>D4C","F4FE4A4G",BD$,SD$,SD2$,HH$,B7$
  86. 3300 PLAY M29$,M29$,"(AGAEDEGE)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B1$
  87. 3310 PLAY M30$,M30$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  88. 3320 PLAY M31$,M31$,"(FEFC<A>CFC)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  89. 3330 PLAY M32$,M32$,"EDE<BG#B>E<BO3V10RAB>CC#DD#E",,"C4.<B&B2","F4.E&E2",BD$,SD$,SD2$,HH$,B4$
  90. 3340 PLAY M33$,M33$,"V10!12(FF)5V12CFAFCF","@93%LO3V6F1","@93O3V6A1","@93%RO4V6C1",BD$,SD$,SD2$,HH$,B3$
  91. 3350 PLAY M34$,M34$,"V10!12(GG)3!12(BB)5","G1","B1","D1",BD$,SD$,SD2$,HH$,B2$
  92. 3360 PLAY M35$,M35$,"!12(AAAA)4","A1",">C#1","E1",BD$,SD$,SD2$,HH$,B1$
  93. 3365 IF I=1 THEN 3380
  94. 3370 PLAY M36$,M36$,"(AAAA)4","A1","C#1","E1",BD$,"RFR8(F16F16)3","RER8(E16E16)3",HH$,B1$
  95. 3375 NEXT I
  96. 3380 PLAY M36$,M36$,,"@101%CO3V11A4.A4.A4","@101%LO4V11C4.C4.C4","@101%RO4V11E4.E4.E4","L16R8CCCCR8CCCCCCCCL4","F.F.(F16)4","E.E.(E16)4",,"E4.E4.>C<BAG","C4.C4.C4"
  97. 3390 PLAY "@103V10O5L16AGFA>C<AFA>EDC<A>C<AGA",,,,,,BD$,SD$,SD2$,HH$,B3$
  98. 3400 PLAY "FA>C<AFA>EDC<A>C<AG>C<BA",,,,,,BD$,SD$,SD2$,HH$,B3$
  99. 3410 PLAY "Q7{GGGG}8. Q8G8.<B>D F8.E8.D8",,,,,,BD$,SD$,SD2$,HH$,B2$
  100. 3420 PLAY "C8.<B8.A8GAGE>C<BGA",,,,,,BD$,SD$,SD2$,HH$,B2$
  101. 3430 PLAY "AA>A<ABB>A<B>CCACDDAG",,,,,,BD$,SD$,SD2$,HH$,B3$
  102. 3440 PLAY "EDEEDED.{DC<BAGFED}4B32>C8<A>C",,,,,,BD$,SD$,SD2$,HH$,B3$
  103. 3450 PLAY "DC<A>C <AGAG EGED EDCD",,,,,,BD$,SD$,SD2$,HH$,B2$
  104. 3460 PLAY "C<A>C<AGAGEGEBG>DC<BG",,,,,,BD$,SD$,SD2$,HH$,B2$
  105. 3470 PLAY "A1","@21U30O4Q8V12L16A>CD<A>CD<A>CEDCDC<A>CD","@21U-30O4Q8V12L16A>CD<A>CD<A>CEDCDC<A>CD",,,,BD$,SD$,SD2$,HH$,B1$
  106. 3480 PLAY ,"E{DCDCD}4<A>C<AGAGE{GA>CC#D}4","E{DCDCD}4<A>C<AGAGE{GA>CC#D}4",,,,BD$,SD$,SD2$,HH$,B3$
  107. 3490 PLAY ,"EDEDD8CDC<BAB8A8G","EDEDD8CDC<BAB8A8G",,,,BD$,SD$,SD2$,HH$,B2$
  108. 3500 PLAY "O5R2R8Q7{CCCC}8Q8C8<B8","Q8L64U-1490A&U-1110A&U-730A&U-350A&U30A8U-1490A&U-1110A&U-730A&U-350A&U30A8L16@22Q8G8&G2","Q8L64U-1550A&U-1170A&U-790A&U-410A&U-30A8U-1550A&U-1170A&U-790A&U-410A&U-30A8L16@22Q8G8&G2",,,,BD$,SD$,SD2$,HH$,B2$
  109. 3510 PLAY "{EGAGE}4GAGE GAGE GAGE",,,,,,BD$,SD$,SD2$,HH$,B1$
  110. 3520 PLAY "{GAGFG}4AGFG AGFG A>C<BA",,,,,,BD$,SD$,SD2$,HH$,B3$
  111. 3530 PLAY "B8AGA8GEGGEDEED<B",,,,,,BD$,SD$,SD2$,HH$,B2$
  112. 3540 PLAY ">D<D>C#<C#>C<CB<B>B-<B->A<A>A-<A->G<G",,,,,,BD$,SD$,SD2$,HH$,B2$
  113. 3550 PLAY "A1",,,"@107O4V8L8U0A4AB4B>C4","@107V8O4L8U0E4EE4EA4",,BD$,SD$,SD2$,HH$,B1$
  114. 3560 PLAY ,,,"CD4DE4AG&","AA4A>C4CD&",,BD$,SD$,SD2$,HH$,B1$
  115. 3570 PLAY ,,,"G4G4.F4E","D4D4.D4D",,BD$,SD$,SD2$,HH$,B2$
  116. 3580 PLAY ,,,"E.D.C<B4GA&","<B.B.BG4DF&",,BD$,SD$,SD2$,HH$,B2$
  117. 3590 PLAY ,,,"A4B4>C4D4","FGGAABB4",,BD$,SD$,SD2$,HH$,B3$
  118. 3600 PLAY ,,"@103V10O4L16R2...O4G","E4DA4G4A&","A4A>C4C4C&",,BD$,SD$,SD2$,HH$,B3$
  119. 3610 PLAY ,,"AAAAABBBB>CCCCDDD","A1",">C2.D4",,BD$,SD$,SD2$,HH$,B4$
  120. 3620 PLAY "R2@90U30V12O5L4R8E8E8F8&","R2@90U-30V12O5L4R8E8E8F8&","DEEE(EEEE)3","B1@101V9O4%L","E1@101V9O4%L","@101V9O4%L","CRC{CCCC}4","F8RF8R{FFFF}4","E8RE8R{EEEE}4",,B4$,,"@9O2V15L16R8%L5BB%CF%R5CR8%L5BB%CF%R5C"
  121. 3625 'GOTO 3180
  122. 3690 PLAY M17$,M17$,"@95Q8V10%RL4O4CC<A8>CD8&","L8A>FC<A>AFCA",,,BD$,SD$,SD2$,HH$,B3$,"%R7C1"
  123. 3700 PLAY M18$,M18$,"DD<A8>DD8","]]<G>D<BG>GD<B>G",,,BD$,SD$,SD2$,HH$,B2$
  124. 3710 PLAY M19$,M19$,"EG#B>D","<G#>D<BG#>G#ED<B",,,BD$,SD$,SD2$,HH$,B4$
  125. 3720 PLAY M20$,M20$,"ED8CC8<B","A4.A4A8G4","]]O5C4.C4C8<B4","]]O5E4.E4E8D4",BD$,SD$,SD2$,HH$,B1$
  126. 3730 PLAY M21$,M21$,"A1","A>FC<A>AFCA",,,BD$,SD$,SD2$,HH$,B3$
  127. 3740 PLAY M22$,M22$,"G2E8CD8","<G>EC<G>GECG",,,BD$,SD$,SD2$,HH$,B5$
  128. 3750 PLAY M23$,M23$,"EG#B>D","L16(ECD)5E",,,BD$,SD$,SD2$,HH$,B4$
  129. 3760 PLAY M24$,M24$,"E1","<G#4.G#4@79V12U30O4C8D8R8","O4B4.B4@79V12U-30O4C8D8R8","O5D4.D2&D8",BD$,"RF","RE",HH$,B7$,"@14O3%R7V13R2G#2","@9V12O3R2R8L16%L6FF%CDD<%R6BB","O3%L7V13R2D2"
  130. 3770 PLAY M25$,M25$,"@111%RQ6O4V10L16(AGAEDEGE)","U0@101V9%LO4","U0R2L8@101V9%LO5RCRC","V9R2L8O4RARG",BD$,SD$,SD2$,HH$,B1$,"@6%R7V14O4C1"
  131. 3780 PLAY M26$,M26$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  132. 3790 PLAY M27$,M27$,">C<B>C<AFA>C<B>C<B>C<AFA>DC",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  133. 3800 PLAY M28$,M28$,"<BA#BG#EG#>C#<BEG#B>D<G#B>DE<",,"C4C<B4>D4C","F4FE4A4G",BD$,SD$,SD2$,HH$,B7$
  134. 3810 PLAY M29$,M29$,"(AGAEDEGE)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B1$
  135. 3820 PLAY M30$,M30$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  136. 3830 PLAY M31$,M31$,"(FEFC<A>CFC)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  137. 3840 PLAY M32$,M32$,"EDE<BG#B>E<BO3V10RAB>CC#DD#E",,"C4.<B&B2","F4.E&E2",BD$,SD$,SD2$,HH$,B4$
  138. 3850 PLAY M33$,M33$,"V10!12(FF)5V12CFAFCF","@93%LO3V6F1","@93O3V6A1","@93%RO4V6C1",BD$,SD$,SD2$,HH$,B3$
  139. 3860 PLAY N34$,N34$,"V10!12(GG)3!12(BB)5","G2R8@79Q8U30V10O4L4C8]D8]E8&","B2R8","D2R8@77Q8U-30V10O4L4C8]D8]E8&",BD$,SD$,SD2$,HH$,B2$
  140. 3890 PLAY "A8R2L4R>V12@79E8&","A8R2L4R>V12@79E8&","@111%RQ6O4V10L16(AGAEDEGE)","E4E4D8C4R8@101V9%LO4","R2L8O5R@101%LO5V9CRC","E4E4D8C4L8O4@101%LO4V9G",BD$,SD$,SD2$,HH$,B1$,"@6%R7V14O4C1"
  141. 3900 PLAY M26$,M26$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  142. 3910 PLAY M27$,M27$,">C<B>C<AFA>C<B>C<B>C<AFA>DC",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  143. 3920 PLAY M28$,M28$,"<BA#BG#EG#>C#<BEG#B>D<G#B>DE<",,"C4C<B4>D4C","F4FE4A4G",BD$,SD$,SD2$,HH$,B7$
  144. 3930 PLAY M29$,M29$,"(AGAEDEGE)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B1$
  145. 3940 PLAY M30$,M30$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  146. 3950 PLAY M31$,M31$,"(FEFC<A>CFC)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  147. 3960 PLAY M32$,M32$,"EDE<BG#B>E<BO3V10RAB>CC#DD#E",,"C4.<B&B2","F4.E&E2",BD$,SD$,SD2$,HH$,B4$
  148. 3970 PLAY M33$,M33$,"V10!12(FF)5V12CFAFCF","@93%LO3V6F1","@93O3V6A1","@93%RO4V6C1",BD$,SD$,SD2$,HH$,B3$
  149. 3980 PLAY N34$,N34$,"V10!12(GG)3!12(BB)5","G2R8@79Q8U30V10O4L4C8]D8]E8&","B2R8","D2R8@77Q8U-30V10O4L4C8]D8]E8&",BD$,SD$,SD2$,HH$,B2$
  150. 3990 PLAY "A8R2L4R>V12@79E8&","A8R2L4R>V12@79E8&","@111%RQ6O4V10L16(AGAEDEGE)","E4E4D8C4R8@101V9%LO4","R2L8O5R@101%LO5V9CRC","E4E4D8C4L8O4@101%LO4V9G",BD$,SD$,SD2$,HH$,B1$,"@6%R7V14O4C1"
  151. 4000 PLAY M26$,M26$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  152. 4010 PLAY M27$,M27$,">C<B>C<AFA>C<B>C<B>C<AFA>DC",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  153. 4020 PLAY M28$,M28$,"<BA#BG#EG#>C#<BEG#B>D<G#B>DE<",,"C4C<B4>D4C","F4FE4A4G",BD$,SD$,SD2$,HH$,B7$
  154. 4030 PLAY M29$,M29$,"(AGAEDEGE)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B1$
  155. 4040 PLAY M30$,M30$,"(GFGDCDFD)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B2$
  156. 4050 PLAY M31$,M31$,"(FEFC<A>CFC)",,"R2RCRC","R2RARG",BD$,SD$,SD2$,HH$,B3$
  157. 4060 PLAY M32$,M32$,"EDE<BG#B>E<BO3V10RAB>CC#DD#E",,"C4.<B&B2","F4.E&E2",BD$,SD$,SD2$,HH$,B4$
  158. 4070 PLAY M33$,M33$,"V10!12(FF)5V12CFAFCF","@93%LO3V6F1","@93O3V6A1","@93%RO4V6C1",BD$,SD$,SD2$,HH$,B3$
  159. 4080 PLAY M34$,M34$,"V10!12(GG)3!12(BB)5","G1","B1","D1",BD$,SD$,SD2$,HH$,B2$
  160. 4090 PLAY M35$+"A1",M35$+"A1","!12(AAAA)4(AAAA)3A4","A1.R4A4",">C#1.R4C#4","E1.R4E4",BD$+"C4",SD$+"R8F4",SD2$+"R8E4",HH$+"@14O4%R7V13R2.E4",B1$+"A4.A4.A4","R1C4R2C4","R1R4O2L16%R7BB%R2GG%L2EE%L7CC","R1%L2V13G8A8%L7R2A4"
  161. 9990 GOTO 65000
  162. 17000 *SCREEN
  163. 17010 SCREEN@ 0 : PALETTE@
  164. 17020 FOR I=0 TO 15 : PALETTE I,[0,0,0] : NEXT
  165. 17030 COLOR ,%5 : CLS
  166. 17040 X=630 : Y=30 : MX=2 : MY=3: R=3 : C1=1 : C2=5 : C3=15 : F=16
  167. 17050 ST$="ＰＩＣＫ　ＵＰ　ＴＯＷＮＳ" : GOSUB *STR_PUT
  168. 17060 X=575 : Y=30 : MX=2 : MY=3 : R=3 : C1=1 : C2=5 : C3=15 : F=16
  169. 17070 ST$="ＭＵＳＩＣ　ＰＲＯＧＲＡＭ" : GOSUB *STR_PUT
  170. 17080 GOSUB *F_IN : FOR I=0 TO 2000 : NEXT
  171. 17090 X1=10 : X2=510 : Y1=10 : Y2=460 : C1=1 : C2=6 : C3=15
  172. 17100 GOSUB *WAKU
  173. 17110 X1=20 : X2=500 : Y1=20 : Y2=90 : C1=15 : C2=7 : C3=5
  174. 17120 GOSUB *WAKU
  175. 17130 X1=20 : X2=500 : Y1=420 : Y2=450 : C1=15 : C2=7 : C3=5
  176. 17140 GOSUB *WAKU
  177. 17150 X1=20 : X2=500 : Y1=100 : Y2=410 : C1=15 : C2=7 : C3=5
  178. 17160 GOSUB *WAKU
  179. 17170 SYMBOL (30,430),"ＰＦ１キーを押すと、演奏を中断して音楽ＭＥＮＵに戻ります。",1,1,0,,,1
  180. 17180 SYMBOL (30,30),"　ＴＩＴＬＥ　",1,1,0,0,PSET,17
  181. 17190 SYMBOL (80,53),"Ｄａｎｃｉｎｇ　ａｌｌ　ｓａｄｎｅｓｓ",1,2,0,0,PSET,1
  182. 17200 SYMBOL (30,110),"　ＤＡＴＡ　",1,1,0,0,PSET,17
  183. 17210 SYMBOL (80,140),"Programed by　ＳＨＯＧＯ　ＯＫＡＭＯＴＯ",1,1,0,0,PSET,1,1
  184. 17220 SYMBOL (80,160)," Composed by　ＳＨＯＧＯ　ＯＫＡＭＯＴＯ",1,1,0,0,PSET,1,1
  185. 17230 SYMBOL (30,200),"　ＭＥＳＳＡＧＥ　",1,1,0,0,PSET,17
  186. 17240 'ST$()="･･････････････････････････････････････････････････････"
  187. 17250 ST$(0)="　歌物の感じで作ってみました。でも、こいつは失敗。なん"
  188. 17260 ST$(1)="かＢ級作曲家がよく作ってる、ありがちな曲になってしまっ"
  189. 17270 ST$(2)="た。今度はゲーム音楽調の曲を作ろうかな。ＢＡＳＳパート"
  190. 17280 ST$(3)="をＰＣＭにやらせたのですが、音が軽いなぁ。"
  191. 17290 ST$(4)="　Ｆ－ＢＡＳＩＣ３８６　Ｖ１.１Ｌ２０で聴いて下さい。"
  192. 17300 ST$(5)="Ｌ２１で聴くと、メロディーパートの音色が変になります。"
  193. 17310 ST$(6)="（鼻づまりの様なヘンテコリンな音になる）"
  194. 17320 ST$(7)=""
  195. 17330 GOSUB *MESSAGE
  196. 17340 RETURN
  197. 17350 *STR_PUT
  198. 17360 SYMBOL (X,Y),ST$,MX,MY,%C1,R,PSET,F
  199. 17370 SYMBOL (X+1,Y),ST$,MX,MY,%C1,R,PSET,F
  200. 17380 SYMBOL (X+2,Y),ST$,MX,MY,%C1,R,PSET,F
  201. 17390 SYMBOL (X+2,Y-1),ST$,MX,MY,%C1,R,PSET,F
  202. 17400 SYMBOL (X+2,Y-2),ST$,MX,MY,%C1,R,PSET,F
  203. 17410 SYMBOL (X,Y-2),ST$,MX,MY,%C3,R,PSET,F
  204. 17420 SYMBOL (X+1,Y-2),ST$,MX,MY,%C3,R,PSET,F
  205. 17430 SYMBOL (X,Y-1),ST$,MX,MY,%C3,R,PSET,F
  206. 17440 SYMBOL (X+1,Y-1),ST$,MX,MY,%C2,R,PSET,F
  207. 17450 RETURN
  208. 17460 *WAKU
  209. 17470 LINE (X1+2,Y1+2)-(X2-2,Y2-2),PSET,%C2,BF
  210. 17480 CONNECT (X1,Y2)-(X1,Y1)-(X2,Y1),%C3
  211. 17490 CONNECT (X1+1,Y2-1)-(X1+1,Y1+1)-(X2-1,Y1+1),%C3
  212. 17500 CONNECT (X1+1,Y2)-(X2,Y2)-(X2,Y1+1),%C1
  213. 17510 CONNECT (X1+2,Y2-1)-(X2-1,Y2-1)-(X2-1,Y1+2),%C1
  214. 17520 RETURN
  215. 17530 *MESSAGE
  216. 17540 FOR I=0 TO 7
  217. 17550   SYMBOL (50,230+20*I),ST$(I),1,1,0,0,PSET,1
  218. 17560 NEXT I
  219. 17570 RETURN
  220. 17580 *F_OUT
  221. 17590 FOR I=16 TO 1 STEP -1 : GOSUB *PALETTE : NEXT I : RETURN
  222. 17600 *F_IN
  223. 17610 FOR I=1 TO 16 : GOSUB *PALETTE : NEXT I : RETURN
  224. 17620 *PALETTE
  225. 17630 PALETTE 1,[0*I,0*I,1*I]
  226. 17640 PALETTE 2,[1*I,0*I,2*I]
  227. 17650 PALETTE 3,[2*I,1*I,3*I]
  228. 17660 PALETTE 4,[4*I,2*I,6*I]
  229. 17670 PALETTE 5,[8*I,6*I,9*I]
  230. 17680 PALETTE 6,[12*I,10*I,13*I]
  231. 17690 PALETTE 7,[14*I,13*I,15*I]
  232. 17700 PALETTE 15,[15*I,15*I,15*I]
  233. 17710 RETURN
  234. 30000 ' ＴＯＷＮＳ　ＳＯＵＮＤ　ＳＥＴＴＩＮＧ　ＰＲＯＧＲＡＭ 
  235. 30010 DIM SON%(23)
  236. 30020 SAD=VARPTR(SON%(0))
  237. 30030 FOR I=0 TO 7 
  238. 30040   READ NUM
  239. 30050   FOR ADD=8 TO 33
  240. 30060     READ DT$
  241. 30070     POKE SAD+ADD,VAL("&H"+DT$)
  242. 30080   NEXT ADD
  243. 30085   IF I>=3 THEN SON%(9)=SON%(9) AND &HFFFF
  244. 30090   VOICE NUM,SON%
  245. 30100 NEXT I : RETURN
  246. 30110 '
  247. 40000 DATA 49
  248. 40005 DATA 01,42,23,61,14,12,20,08,9F,94,DF,9F
  249. 40006 DATA 02,02,00,00,05,04,02,00,1F,1F,4F,0F,02,C0
  250. 40010 DATA 21
  251. 40020 DATA 01,02,01,02,3C,23,3C,00,95,95,95,55
  252. 40030 DATA 00,00,00,00,00,00,06,07,0F,0F,0F,0F,39,C2
  253. 40040 DATA 22
  254. 40050 DATA 01,02,01,02,3C,23,3C,00,95,95,95,55
  255. 40060 DATA 00,00,00,00,00,00,06,07,03,03,03,03,39,C2
  256. 43141 DATA 79 
  257. 43142 DATA 02,02,04,02,1C,30,45,00,50,0E,10,52
  258. 43143 DATA 04,1F,1F,1F,00,00,00,00,48,08,08,08,3A,C2
  259. 43150 DATA 78 
  260. 43160 DATA 02,02,04,02,1C,30,45,00,50,0E,10,52
  261. 43170 DATA 04,1F,1F,1F,00,00,00,00,40,00,00,02,3A,C2
  262. 43180 DATA 77 
  263. 43190 DATA 02,02,04,02,1C,30,45,00,50,0E,10,52
  264. 43200 DATA 04,1F,1F,1F,00,00,00,00,4F,0F,0F,0F,3A,C2
  265. 45000 DATA 90 
  266. 45010 DATA 53,31,38,32,30,13,40,04,9C,55,5F,12
  267. 45020 DATA 04,02,08,02,02,00,04,00,2F,1F,3F,2F,20,C1
  268. 50000 DATA 91 
  269. 50010 DATA 53,31,38,32,30,13,40,04,9C,55,5F,12
  270. 50020 DATA 04,02,08,02,02,00,04,00,23,12,34,24,20,C1
  271. 65000 BGM 0:PLAY "R64":BGM 1
  272. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:GOSUB *F_OUT : CLS : RUN"MENU.BAS"
  273.